home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
doordr40.zip
/
DOORDRIV.INT
< prev
next >
Wrap
Text File
|
1991-03-17
|
5KB
|
175 lines
{$IFDEF SMALL}
unit doordrSM;
{$ELSE}
unit doordriv;
{$ENDIF}
{$V-}
interface
uses dos, crt, comio, ddscott, ddansi, ddpcb, ddcrc, ddxfer, ddvoc;
const
ack=#6;
nak=#21;
sot=#1;
vocmax: longint = 64000;
vocfree: longint = 0;
type
MenuType=Record
BoxType: byte;
title: string[32];
opts: array[1..10] of string[32];
optdata: array[1..10] of byte;
Usr11,usr12,usr21,usr22: string[8];
numdata: array[1..8] of word;
data: byte;
end;
string80=string[80];
origen_type=(localc,remote);
{$IFNDEF SMALL}
WindowAr = Array[1..23] of string[78];
MemoryAr = Array[0..3999] of byte;
Procptr = pointer;
{$ENDIF}
const
{$IFDEF SMALL}
version= 'Version 4.00S; 3-15-90';
{$ELSE}
version= 'Version 4.00; 3-15-90';
{$ENDIF}
graphics_codes: array[1..4] of string[4] = ('','.ASC','.ANS','.MUS');
var
lastop: char;
ddterm: boolean;
mintime: byte;
notime: string;
macro,macro_str: string;
node_num: byte;
time_credit: integer;
char_origen: origen_type;
fouled_up: char;
localcol: boolean;
ansion: boolean;
time_check: boolean;
ln: integer;
morechk: boolean;
stacked: string;
current_foreground, current_background: byte;
promptcol1: byte;
promptcol2: byte;
promptcol3: byte;
color_chg: boolean;
default_fore, default_back: integer;
cdropped: boolean;
progname: string[60];
bbs_time_left: integer;
com_port: byte;
bbs_software: byte;
baud_rate: integer;
fground,bground,statfore,statback: byte;
statline: boolean;
graphics: integer;
local: boolean;
user_access_level: word;
user_first_name: string[30];
user_last_name: string[30];
sysop_first_name: string[30];
sysop_last_name: string[30];
board_name: string[70];
filter : boolean;
filterck : boolean;
filterallow : boolean;
Save_Screen_Chat : boolean;
{$IFNDEF SMALL}
Proc_Ptr_Ar : array[1..26] of procptr;
Proc_Call_Ptr : procptr;
Help_Ar : Array[1..14] of string[80];
{$ENDIF}
st_hr, st_mn, st_sc, st_sc100: word;
quiet: boolean;
regname: string;
regdata: string;
color1: boolean;
line43: boolean;
Remapfore: array[0..15] of byte;
remapback: array[0..7] of byte;
stackon: boolean;
pbuff: array[1..4096] of char;
bufferptr: word;
packetnum: word;
pkname: string;
ddtcrc: array[1..255] of longint;
badchar: string;
hostname: string[20];
fossilIO: boolean;
maxtime: word;
ConHelpStack: array[1..10] of byte;
curch: byte;
curconhelp: word;
ddtver: word;
lineon: boolean;
ddtrel: word;
numlines: byte;
oldtextmode: word;
sbon: boolean;
sbaddr: word;
sbint: word;
lastsetfore: byte;
setforecheck: boolean;
procedure display_macro(s: string);
procedure record_macro(var s: string);
procedure close_async_port;
procedure open_async_port;
function skeypressed: boolean;
procedure sendtext(s: string);
procedure sgoto_xy(x,y: integer);
procedure sclrscr;
procedure swrite(s: string);
procedure swriteln(s: string);
procedure sread_char(var ch: char);
procedure sread(var s: string);
procedure sread_num(var n: integer);
procedure sread_num_word(var n: word);
procedure sread_num_longint(var n: longint);
function time_left: integer;
procedure set_foreground(f: integer);
procedure set_background(b: integer);
procedure set_foreback(fgc,bgc:byte);
procedure prompt(var s: string; le: integer; pc: boolean);
procedure displayfile(filen: string);
{$IFNDEF SMALL}
Procedure GetScreen(Tx,Ty,Bx,By:integer; Var topar : MemoryAr);
Procedure ReinitScreen(Txb,Tyb,Bxb,Byb:integer; Var topar : MemoryAr);
{$ENDIF}
Procedure elapsed(time1_hour, time1_min, time1_sec, time2_hour, time2_min,
time2_sec: longint; var elap_hour, elap_min, elap_sec: word);
procedure get_stacked(var s: string);
procedure sread_char_filtered(var ch: char);
procedure display_status;
procedure InitDoorDriver(ConfigFileName: string);
procedure PacketStart(num: word);
procedure PacketSend;
procedure DDTermOn;
procedure DDTermOff;
procedure DDTermSendMessage(n: word; s: string);
procedure DDTermSendTime;
procedure DDTermSendFile(fname: string);
function Time_used: integer;
procedure DDTermConHelp(n: word);
procedure DDTermCheckFiles;
procedure DDTermConBack;
procedure DDTermWrite(n: word; s: string);
procedure DDTermWriteln(n: word; s: string);
procedure SendPacketToRemote;
function DDTermMenu(menu: menutype): boolean;
function DDTermProcessOk: boolean;
function DDTermMenuData: byte;
function DDTermMenuNum: byte;
function DDTermMenuNumData(n: byte): word;
procedure DDTermVocPlay(s: string);
procedure DDTermVocReady(s: string);
Implementation